﻿''' <summary>
''' 某一个地区(市)所包含的信息
''' </summary>
Public Class CAreaInfo
    Inherits Sy.Data.SqlObject(Of CAreaInfo)
    Public Property Province As String
    Public Property City As String
    Public Property Country As String
    Public Property Info As String
    Sub New(area As String)
        Me.Info = area
        Dim infos = area.Split({"_"}, StringSplitOptions.RemoveEmptyEntries)
        If infos.Length > 2 Then
            Province = infos(0)
            City = infos(1)
            Country = infos(2)
        Else
            Province = "直辖市/首都"
            City = infos(0)
            Country = infos(1)
        End If
    End Sub
    Public Sub New()
    End Sub
    Public Overrides Function ToString() As String
        Return Info
    End Function
End Class
